sub vg5000setetg(tch as ubyte,tadr as uinteger):
  asm
    ;- a=character (bit 7: 0=text, 1=graphic)
    ;- hl=address of the first from 10 bytes to setet/seteg
    call $001B
    end asm
  end sub
